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; ABSTRACT: 
This module contains routine MTH$GPROD: 
Return the product of two G floating arguments. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 26-Jan-79: Version 1 
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; FUNCTIONAL DESCRIPTION: 

; Convert the two single-precision floating-point orqupents to 
tiplication 


80 
| 8 | 
8 ; G Cqvatocpresteten, Return the result of their mu 
| $6 ; in G double-precision. 
97 ; 
09 98 CALLING SEQUENCE: 
| 190 ; Double_product.wg.v = MTHSGPROD (argi.rf.r, arg2.rf.r) 
| 000 194 ; 
$00 108 : INPUT PARAMETERS: 
| 000 104 ; The two input parameters are single-precision floating-pcint 
000 105 ; values and are call-by-reference. 
000 109 | 
000 108 ; IMPLICIT INPUTS: 
a ig; ee 
$009 111 ; OUTPUT PARAMETERS: 
nt i 
9000 114 ; IMPLICIT OUTPUTS: 
$00 118 _ 
$009 117 ; COMPLETION CODES: 
oe ii ee 
0000 120 : SIDE EFFECTS: 
464 \s! 3 Reserved Operand and Floating Overflow exceptions can occur. 
$000 138 ; 
0000 124 ;=- 
0000 19? 
a, 
000C $000 158 ENTRY MTHSGPROD “M<R2, R3> ; save R2 and R3 
50 04 BC 99F 900¢ 129 CVTFG ad(AP), RO ; RO/R1 = argl 
52 08 BC 99FD 4 130 CVTFG @B(AP), R2 3; R2/R3 = ange 
50 52 44FD 00C 131 MULG2 R2, RO ; RO/R1 = RO7R1 * R2/R35 
04 pai? 1 § RET 
11 1 
bo; 154 
11 135 END 
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! ; Psect synopsis ! 


j weerenceeca tack BS 


PSECT name Allocation PSECT No. Attributes 
es ( -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MIHSCODE attain kt ( 1 9 9.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time astoses Time 
Initialization 3 88:00: e. :00.71 
pounene processing 1 ; BR: 700. 00: 6; :02.90 
0:00:00. 0:00:01.85 
Synbol table sort 9 0:00: 8-00 0:00:0 30 
Pas 3 0:00:00.31 0:00:0 “f 
Symbol table output 0:00:00.01 0:00: 2 -01 
Psect synopsis output BR 8 B8°8 Ba: :00: B08 
Cross-reference output 0:00:00.0 0:00:00.0 
Assembler run totals 23 00:00:01.1 00:00:07.87 


The working set Limit was 900 poges 
1297 bytes (3 pages) of virtual memory were used to buffer the intermediate gore. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 0 local symbols. 
135 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Sa ee ee eet 


Macro Library name Macros defined 
“S2558DUA2Z8:(SYSLIBISTARLET.MLB;20 0 SS "e 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/D! SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHGPROD/OBJ=OBJ$:MTHGPROD MSRC$:MTHGPROD/UPDATE=(ENHS:MTHGPROD) 
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